100 PRINT"[147]DISK UNPROTECTED"
110 OPEN15,8,15:PRINT#15,"I0":OPEN2,8,2,"#"
120 PRINT#15,"U1:";2;0;18;0:GOSUB190
130 PRINT#15,"B-P:";2;2:PRINT#2,CHR$(65);:GOSUB190
140 PRINT#15,"B-P:";2;166:PRINT#2,CHR$(65);:GOSUB190
150 PRINT#15,"M-W";CHR$(1);CHR$(1);CHR$(1);CHR$(65)
160 PRINT#15,"M-W";CHR$(2);CHR$(7);CHR$(1);CHR$(65)
170 PRINT#15,"U2:";2;0;18;0:GOSUB190
180 CLOSE2:PRINT#15,"I0":CLOSE15:END
190 INPUT#15,EN,EM$,ET,ES
200 IFENTHENPRINTEN,EM$,ET,ES:STOP
210 RETURN